
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.Querypersonel_info
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	3/4/2549 17:28:16	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class Querypersonel_info
#Region "Internal member variables"
    Private _CODE As String
    Private _INAME As String
    Private _FNAME As String
    Private _LNAME As String
    Private _FNAME_ENG As String
    Private _LNAME_ENG As String
    Private _BIRTHDATE As DateTime
    Private _ADDRESS As String
    Private _HOMETEL As String
    Private _OFFICETEL As String
    Private _SEX As String
    Private _ENTRYDATE As DateTime
    Private _WSTCODE As String
    Private _POSCODE As String
    Private _UNITCODE As String
    Private _WGRPCODE As String
    Private _JOBGROUP As String
    Private _OFFICECODE As String
    Private _STPOSDATE As DateTime
    Private _STJGDATE As DateTime
    Private _JGAGE1 As String
    Private _JGAGE2 As String
    Private _AGE1 As String
    Private _AGE2 As String
    Private _POSAGE1 As String
    Private _POSAGE2 As String
    Private _JOBAGE1 As String
    Private _JOBAGE2 As String
    Private _RETIREYEAR As String
    Private _MGMT As String
    Private _V_UNITCODE As String
    Private _V_MGMT As String
    Private _C_MGMT As String
    Private _Lastupdate As DateTime
    Private _UpdateBy As String
    Private _EmailAddr As String
    Private _Hiringdate As DateTime
#End Region

    Public Sub New()
        _CODE = Nothing
        _INAME = Nothing
        _FNAME = Nothing
        _LNAME = Nothing
        _FNAME_ENG = Nothing
        _LNAME_ENG = Nothing
        _BIRTHDATE = Nothing
        _ADDRESS = Nothing
        _HOMETEL = Nothing
        _OFFICETEL = Nothing
        _SEX = Nothing
        _ENTRYDATE = Nothing
        _WSTCODE = Nothing
        _POSCODE = Nothing
        _UNITCODE = Nothing
        _WGRPCODE = Nothing
        _JOBGROUP = Nothing
        _OFFICECODE = Nothing
        _STPOSDATE = Nothing
        _STJGDATE = Nothing
        _JGAGE1 = Nothing
        _JGAGE2 = Nothing
        _AGE1 = Nothing
        _AGE2 = Nothing
        _POSAGE1 = Nothing
        _POSAGE2 = Nothing
        _JOBAGE1 = Nothing
        _JOBAGE2 = Nothing
        _RETIREYEAR = Nothing
        _MGMT = Nothing
        _V_UNITCODE = Nothing
        _V_MGMT = Nothing
        _C_MGMT = Nothing
        _Lastupdate = Nothing
        _UpdateBy = Nothing
        _EmailAddr = Nothing
        _Hiringdate = Nothing
    End Sub

    Public Sub New(ByVal CODE As String, _
       ByVal INAME As String, _
       ByVal FNAME As String, _
       ByVal LNAME As String, _
       ByVal FNAME_ENG As String, _
       ByVal LNAME_ENG As String, _
       ByVal BIRTHDATE As DateTime, _
       ByVal ADDRESS As String, _
       ByVal HOMETEL As String, _
       ByVal OFFICETEL As String, _
       ByVal SEX As String, _
       ByVal ENTRYDATE As DateTime, _
       ByVal WSTCODE As String, _
       ByVal POSCODE As String, _
       ByVal UNITCODE As String, _
       ByVal WGRPCODE As String, _
       ByVal JOBGROUP As String, _
       ByVal OFFICECODE As String, _
       ByVal STPOSDATE As DateTime, _
       ByVal STJGDATE As DateTime, _
       ByVal JGAGE1 As String, _
       ByVal JGAGE2 As String, _
       ByVal AGE1 As String, _
       ByVal AGE2 As String, _
       ByVal POSAGE1 As String, _
       ByVal POSAGE2 As String, _
       ByVal JOBAGE1 As String, _
       ByVal JOBAGE2 As String, _
       ByVal RETIREYEAR As String, _
       ByVal MGMT As String, _
       ByVal V_UNITCODE As String, _
       ByVal V_MGMT As String, _
       ByVal C_MGMT As String, _
       ByVal Lastupdate As DateTime, _
       ByVal UpdateBy As String, _
       ByVal EmailAddr As String, _
       ByVal Hiringdate As DateTime)
        _CODE = CODE
        _INAME = INAME
        _FNAME = FNAME
        _LNAME = LNAME
        _FNAME_ENG = FNAME_ENG
        _LNAME_ENG = LNAME_ENG
        _BIRTHDATE = BIRTHDATE
        _ADDRESS = ADDRESS
        _HOMETEL = HOMETEL
        _OFFICETEL = OFFICETEL
        _SEX = SEX
        _ENTRYDATE = ENTRYDATE
        _WSTCODE = WSTCODE
        _POSCODE = POSCODE
        _UNITCODE = UNITCODE
        _WGRPCODE = WGRPCODE
        _JOBGROUP = JOBGROUP
        _OFFICECODE = OFFICECODE
        _STPOSDATE = STPOSDATE
        _STJGDATE = STJGDATE
        _JGAGE1 = JGAGE1
        _JGAGE2 = JGAGE2
        _AGE1 = AGE1
        _AGE2 = AGE2
        _POSAGE1 = POSAGE1
        _POSAGE2 = POSAGE2
        _JOBAGE1 = JOBAGE1
        _JOBAGE2 = JOBAGE2
        _RETIREYEAR = RETIREYEAR
        _MGMT = MGMT
        _V_UNITCODE = V_UNITCODE
        _V_MGMT = V_MGMT
        _C_MGMT = C_MGMT
        _Lastupdate = Lastupdate
        _UpdateBy = UpdateBy
        _EmailAddr = EmailAddr
        _Hiringdate = Hiringdate
    End Sub

#Region "Property"

    Public Property CODE() As String
        Get
            Return _CODE
        End Get
        Set(ByVal value As String)
            _CODE = value
        End Set
    End Property


    Public Property INAME() As String
        Get
            Return _INAME
        End Get
        Set(ByVal value As String)
            _INAME = value
        End Set
    End Property


    Public Property FNAME() As String
        Get
            Return _FNAME
        End Get
        Set(ByVal value As String)
            _FNAME = value
        End Set
    End Property


    Public Property LNAME() As String
        Get
            Return _LNAME
        End Get
        Set(ByVal value As String)
            _LNAME = value
        End Set
    End Property


    Public Property FNAME_ENG() As String
        Get
            Return _FNAME_ENG
        End Get
        Set(ByVal value As String)
            _FNAME_ENG = value
        End Set
    End Property


    Public Property LNAME_ENG() As String
        Get
            Return _LNAME_ENG
        End Get
        Set(ByVal value As String)
            _LNAME_ENG = value
        End Set
    End Property


    Public Property BIRTHDATE() As DateTime
        Get
            Return _BIRTHDATE
        End Get
        Set(ByVal value As DateTime)
            _BIRTHDATE = value
        End Set
    End Property


    Public Property ADDRESS() As String
        Get
            Return _ADDRESS
        End Get
        Set(ByVal value As String)
            _ADDRESS = value
        End Set
    End Property


    Public Property HOMETEL() As String
        Get
            Return _HOMETEL
        End Get
        Set(ByVal value As String)
            _HOMETEL = value
        End Set
    End Property


    Public Property OFFICETEL() As String
        Get
            Return _OFFICETEL
        End Get
        Set(ByVal value As String)
            _OFFICETEL = value
        End Set
    End Property


    Public Property SEX() As String
        Get
            Return _SEX
        End Get
        Set(ByVal value As String)
            _SEX = value
        End Set
    End Property


    Public Property ENTRYDATE() As DateTime
        Get
            Return _ENTRYDATE
        End Get
        Set(ByVal value As DateTime)
            _ENTRYDATE = value
        End Set
    End Property


    Public Property WSTCODE() As String
        Get
            Return _WSTCODE
        End Get
        Set(ByVal value As String)
            _WSTCODE = value
        End Set
    End Property


    Public Property POSCODE() As String
        Get
            Return _POSCODE
        End Get
        Set(ByVal value As String)
            _POSCODE = value
        End Set
    End Property


    Public Property UNITCODE() As String
        Get
            Return _UNITCODE
        End Get
        Set(ByVal value As String)
            _UNITCODE = value
        End Set
    End Property


    Public Property WGRPCODE() As String
        Get
            Return _WGRPCODE
        End Get
        Set(ByVal value As String)
            _WGRPCODE = value
        End Set
    End Property


    Public Property JOBGROUP() As String
        Get
            Return _JOBGROUP
        End Get
        Set(ByVal value As String)
            _JOBGROUP = value
        End Set
    End Property


    Public Property OFFICECODE() As String
        Get
            Return _OFFICECODE
        End Get
        Set(ByVal value As String)
            _OFFICECODE = value
        End Set
    End Property


    Public Property STPOSDATE() As DateTime
        Get
            Return _STPOSDATE
        End Get
        Set(ByVal value As DateTime)
            _STPOSDATE = value
        End Set
    End Property


    Public Property STJGDATE() As DateTime
        Get
            Return _STJGDATE
        End Get
        Set(ByVal value As DateTime)
            _STJGDATE = value
        End Set
    End Property


    Public Property JGAGE1() As String
        Get
            Return _JGAGE1
        End Get
        Set(ByVal value As String)
            _JGAGE1 = value
        End Set
    End Property


    Public Property JGAGE2() As String
        Get
            Return _JGAGE2
        End Get
        Set(ByVal value As String)
            _JGAGE2 = value
        End Set
    End Property


    Public Property AGE1() As String
        Get
            Return _AGE1
        End Get
        Set(ByVal value As String)
            _AGE1 = value
        End Set
    End Property


    Public Property AGE2() As String
        Get
            Return _AGE2
        End Get
        Set(ByVal value As String)
            _AGE2 = value
        End Set
    End Property


    Public Property POSAGE1() As String
        Get
            Return _POSAGE1
        End Get
        Set(ByVal value As String)
            _POSAGE1 = value
        End Set
    End Property


    Public Property POSAGE2() As String
        Get
            Return _POSAGE2
        End Get
        Set(ByVal value As String)
            _POSAGE2 = value
        End Set
    End Property


    Public Property JOBAGE1() As String
        Get
            Return _JOBAGE1
        End Get
        Set(ByVal value As String)
            _JOBAGE1 = value
        End Set
    End Property


    Public Property JOBAGE2() As String
        Get
            Return _JOBAGE2
        End Get
        Set(ByVal value As String)
            _JOBAGE2 = value
        End Set
    End Property


    Public Property RETIREYEAR() As String
        Get
            Return _RETIREYEAR
        End Get
        Set(ByVal value As String)
            _RETIREYEAR = value
        End Set
    End Property


    Public Property MGMT() As String
        Get
            Return _MGMT
        End Get
        Set(ByVal value As String)
            _MGMT = value
        End Set
    End Property


    Public Property V_UNITCODE() As String
        Get
            Return _V_UNITCODE
        End Get
        Set(ByVal value As String)
            _V_UNITCODE = value
        End Set
    End Property


    Public Property V_MGMT() As String
        Get
            Return _V_MGMT
        End Get
        Set(ByVal value As String)
            _V_MGMT = value
        End Set
    End Property


    Public Property C_MGMT() As String
        Get
            Return _C_MGMT
        End Get
        Set(ByVal value As String)
            _C_MGMT = value
        End Set
    End Property


    Public Property Lastupdate() As DateTime
        Get
            Return _Lastupdate
        End Get
        Set(ByVal value As DateTime)
            _Lastupdate = value
        End Set
    End Property


    Public Property UpdateBy() As String
        Get
            Return _UpdateBy
        End Get
        Set(ByVal value As String)
            _UpdateBy = value
        End Set
    End Property


    Public Property EmailAddr() As String
        Get
            Return _EmailAddr
        End Get
        Set(ByVal value As String)
            _EmailAddr = value
        End Set
    End Property


    Public Property Hiringdate() As DateTime
        Get
            Return _Hiringdate
        End Get
        Set(ByVal value As DateTime)
            _Hiringdate = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.Querypersonel_infos
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	3/4/2549 17:28:16	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class Querypersonel_infos
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As Querypersonel_info
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), Querypersonel_info)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As Querypersonel_info)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As Querypersonel_info)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
